home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #5 / Commodore_Disk_User_Vol.3_5_1990_-.d64 / screen slider (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.9 KB  |  73 lines
  1. 1 ifa=1thena=a+1:load"demo pic",8,1
  2. 2 ifa=2then7
  3. 3 poke51,127:poke52,151:poke55,127:poke56,151:clr:a=1:q=49152
  4. 4 poke53280,0:poke53281,0:print"[147]   [211][195][210][197][197][206][160][211][204][201][196][197][210] for the [195][207][205][205][207][196][207][210][197] 64"
  5. 5 print,"[157][215]ritten by [202]ason [198]inch":print," [195]opyright [195][196][213] 1990"
  6. 6 print,"    [208]lease wait":load"slider code",8,1
  7. 7 sysq,1,1:sysq+6,3,24:poke16383,0:poke53280,5:poke53281,11:print"[147][158]",
  8. 8 print"[172][162][187] [162][162] [162][162][187][172][162][162][187][162][162][162][172][187][172][187]",," [162][161][146][161][188][190]  [161][146][161]   [161] [190][146][161]",,
  9. 9 print"[188][162][188][161][146][161]    [146][190][161][172][146][190]  [162][161][172] [146][161]",,"[187][146][162][172][146][188][188][190][146][190] [146][188][188][161][188][146][162][187] [146][162][162][161][146][161][161][146][161]
  10. 10 [153],"**rndwaitrnd wait  log waitcos rndwaitrndget*newwaitcos newlog",,"waitloglogwaitnew     getlogwaitrnd  waitnew*",,
  11. 11 [153]"wait*rndgetwaitget   wait**getwaitget   rndwaitrnd",," newnewnewnewnewwaitlognewwaitcosnewnewwait lognewnewwaitcosnewnew
  12. 12 print"    [159][195]oding and design by [202]ason [198]inch",,"    [150]([195]) [195][196][213] 1990"
  13. 13 sysq+3,1:sysq+6,1,24:fort=1to1500:next:sysq+3,1:sysq+6,2,24
  14. 14 print"[147][215]elcome to [211]creen [211]lider",," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  15. 15 print" [201]t is  often desirable  to enhance the  presentation   of  text   scree";
  16. 16 print"ns   or  programs that feature text and graphic  integration. [207]ne metho";
  17. 17 print"d for this is to  fade out your text, but this cannot be  done  so  eas";
  18. 18 print"ily[160] with any  bit-mapped  and possibly  multicolour pictures.  [201]  have";
  19. 19 print" therefore  extended  a [160]technique  known as '[198]lexible [204]ine [196]istancing' ";
  20. 20 print"to  produce a smooth vertical screen slide":sysq+3,1:gosub64:sysq,130,1
  21. 21 sysq+3,1:print"[147] [217]ou have now already seen the slide in  operation five ti";
  22. 22 print"mes.  [201]t can  involve  text screens  or  bit-mapped pictures,  whether ";
  23. 23 print"they are standard or displayed  in  [155]multicolour.  [212]he  slide  is  also";
  24. 24 print"  completely independent of [156]co[156]lo[156]ur[156]s  and  will not move sprites";
  25. 25 print".  [201]t is achieved  by varying  the  physical position  of  the top line";
  26. 26 print" of the screen data."," [207]ptionally, [194][193][211][201][195] programs  can remain  in  op";
  27. 27 print"eration  throughout  the  slide."
  28. 28 poke53282,7:poke53283,0:poke53270,216:sysq+3,1:gosub64:sysq,2,1:sysq+6,1,24
  29. 29 sysq+3,0:c=200:a=0:x=1:dx=1
  30. 30 poke53270,c:c=416-c:print""tab(x)"[159] * ":x=x+dx:ifx=36orx=1thendx=-dx
  31. 31 ifpeek(2)<>255then30
  32. 32 sysq+6,4,24:sysq,1,1:poke53281,0:sys38795:sysq+3,1:fort=1to3000:next
  33. 33 sysq+6,2,24:sysq+3,1:poke53265,23:poke53272,23:poke56576,63:poke53270,200
  34. 34 poke53280,10:poke53281,2:t$="                                  "
  35. 35 t$=t$+"[197][206][196] [207][198] [211][195][210][197][197][206] [211][204][201][196][197][210] [196][197][205][207][206][211][212][210][193][212][201][207][206] "
  36. 36 sysq+6,2,24:print"[147]","    [205]ain [207]ptions",,,"    ------------"
  37. 37 print,"[158][157][157][157]1. [211]ave (and relocate) code"
  38. 38 print,"[157][157][157]2. [210]eturn to [194][193][211][201][195]":sysq,1,0:sysq+3,0:fort=1to200:next:iff2=1then40
  39. 39 forl=1to34step1:print"[155]  "mid$(t$,l,37):printtab(l+2)"=":next:f2=1
  40. 40 ifpeek(2)<>255then40
  41. 41 sysq,130,1:poke198,0
  42. 42 geta$:ifa$<"1"ora$>"2"then42
  43. 43 sysq+3,1:print"[147]":sysq+6,5,24:sysq,2,1:sysq+3,1:sysq+6,2,25:ifa$="1"thenf=0:goto45
  44. 44 poke53280,14:poke53281,6:print"[147][154][142]ready.":sysq+3,1:print"";:sysq,0:new
  45. 45 sysq+6,2,24:print"[147] [197]nter start address of saved code"," :[159]49152[157][157][157][157][157]";
  46. 46 iff=0thenf=1:sysq+3,1:sysq,0
  47. 47 open1,0:input#1,a$:close1:a=val(a$):ifa<2048ora>65160then45
  48. 48 ifa=49152then53
  49. 49 print:print" [208]lease wait",,," [193]ltering code for relocation":restore:sysq+6,1,24
  50. 50 fori=0to52:readad,n:ad=ad+49153:n=a+n:pokead,(n/256-int(n/256))*256
  51. 51 pokead+1,n/256:next:n=a+105:poke49228,(n/256-int(n/256))*256:poke49230,n/256
  52. 52 ifs=1thens=0:goto61
  53. 53 print" [207][203]. [211]aving code as "chr$(34)"[211][204][201][196][197][210]";
  54. 54 printmid$(str$(a),2)chr$(34):open15,8,15,"i0":open2,8,1,"slider"+mid$(str$(a),2)+",p"
  55. 55 input#15,e,a$,b,c:ife<>0then58
  56. 56 print#2,chr$((a/256-int(a/256))*256)chr$(a/256);:fori=49152to49600
  57. 57 print#2,chr$(peek(i));:next
  58. 58 close2:close15:ife=0then63
  59. 59 print"[147] [196][201][211][203] [197][210][210][207][210] [206]o."mid$(str$(e),2)":":print" "a$" @"b"[157],"c
  60. 60 s=1:a=q:restore:goto50
  61. 61 print" [208]ress any key":poke198,0:wait198,1:poke198,0
  62. 62 sysq+6,6,24:sysq,2,1:sysq+3,1:goto36
  63. 63 print"[147] [195]ode saved without error.":goto60
  64. 64 c=62:poke198,0:a=0:poke781,23:poke782,38:poke783,0:sys65520:print"[156]>[157][146][148] "
  65. 65 a=a+1:ifa=10thenpoke1983,c:c=252-c:a=0
  66. 66 geta$:ifa$=""then65
  67. 67 return
  68. 68 data0,263,3,334,6,411,36,50,61,46,71,106,114,52,117,44,122,48,129,48,134,44,149
  69. 69 data51,152,45,169,51,178,48,183,46,190,49,193,45,196,48,202,217,205,49,208,45
  70. 70 data211,48,217,48,226,48,232,49,235,52,242,52,263,251,266,46,289,9,293,251,302
  71. 71 data47,311,316,316,45,321,44,324,48,330,61,334,46,341,45,358,251,370,48,374,44
  72. 72 data386,47,391,9,394,275,397,46,402,46,407,305,411,251,421,251,434,49,445,50
  73.